home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0195.ZIP / DISKTYP.PAS < prev    next >
Pascal/Delphi Source File  |  1984-12-03  |  656b  |  22 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.}
  4.  
  5. var
  6.   drive : char;
  7.  
  8. {$I regpack.typ}
  9. {$I disktyp.lib}
  10. begin
  11.   Write('Which drive? ');
  12.   Read(drive);
  13.   writeLn;
  14.   case DiskType(drive) of
  15.       0: WriteLn('Invalid drive letter');
  16.       1: WriteLn('Non-standard format');
  17.     160: WriteLn('Single-sided, 8 sectors');
  18.     180: WriteLn('Single-sided, 9 sectors');
  19.     320: WriteLn('Double-sided, 8 sectors');
  20.     360: WriteLn('Double-sided, 9 sectors');
  21.   end;
  22. end.